home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 002a / corewar.zip / GUNM4.PRG < prev    next >
Text File  |  1991-05-12  |  625b  |  37 lines
  1. BGN GunMaker_]V
  2.         MOV I 152
  3.         SPL 151
  4.         SPL J
  5.         SUB #20 4
  6.         JWN -1 @3
  7.         SPL @2
  8.         JMP -3
  9.         DAT #-10
  10. J       SPL H
  11.         SUB #7 4
  12.         JWN -1 @3
  13.         SPL @2
  14.         JMP -3
  15.         DAT #-10
  16. H       ADD #Grid_Size*4+20 B
  17.         MOV C @B
  18.         ADD #1 B
  19.         MOV D @B
  20.         ADD #1 B
  21.         MOV E @B
  22.         ADD #1 B
  23.         MOV F @B
  24.         ADD #1 B
  25.         MOV G @B
  26.         SUB #4 B
  27.         SPL @B
  28.         JMP H
  29. B       DAT #5
  30. C       ADD #7 4
  31. D       JWN -1 @3
  32. E       MOV #0 @2
  33. F       JMP -3
  34. G       DAT #0
  35. I       JMP 0
  36. END
  37.